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(57)Abstract: 

PURPOSE: To provide the control system which uses the software 
architecture, equipped with several layers of abstract bodies, 
controlling the high-level parallel computer system. 
CONSTITUTION: An abstract physical machine 10 (1st layer) 
includes a group of abstract physical processors and is considered as 
a microkernel. A 2nd layer includes a virtual machine 2 and virtual 
processors 16. The virtual machine is equipped with a virtual address 
space and a group of virtual processors connected by virtual 
topology. The virtual machine is mapped to the abstract physical 
machines and each virtual processor is mapped to the abstract 
physical processors. A 3rd layer defines threads 1 8. The threads are 
processes with light weight which run on the virtual processors. The 
abstract physical machine, abstract physical processors, virtual 
machines, virtual processors, thread groups, and threads are 
preferably all objects of a first class. 
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<, T^U>5r--->3><D5>^-rA0?S»^a2B^r5 
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xm&* 7a#5&iz&m-rz>« 

V [00 3 4] X^>f >#U % ^cD&BHCfctt* 4 r30>& 
Xl'* FttfMMfcac* ^T-Xb^xo^-^Wifi-C' 
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TI&tt3E913tl£. XUy K©*^k— 5^3 >O^ff00 
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• 7 H UX&fB)«r<*#- hf* £ itSMLfclMttST 

[0 0 5 2] Xf^>^yXTA^Dy7S>^f 

V2-'J>m^X^y H - T-fyi/»y 3 >. Xh 

yXfAlia- tfi^Xky HCO^U— : ^ 3 
atfcWicUL is)— ©yyu^r— : ^3>tt, 

[0 0 5 3] fc*j£r?x5V>^te, fficoig^w^;^ 

• X Uv H • Tf^U— 5"-^ >y . ^X5\MC«T^*. 

©JSfP^LTOP-^Jl/- 7HU-X35ilO©BaJc#py 
>^p y ^>^I/On-;i,S:^3H-hLri^. X^ 

— 9 • P^KOX k!V <fctfP— • 7 H l/X$|fl 
^X^^»Ttt^$n^^W^J|/<D^D^^^> 
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d<Oj:3^»^ff3fc^(D^|-a^5a«S:ffi^ 
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[oo5 5] >#\*mz* »*flit^m^n-5« 

y p ^ ^ * >^^Wc#iS<0»*«jfifc <fcO«tel;:& 
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^D-fey^ (PP) 1 2\z£K>m&ZtlT^% a CCDtt 
x >te 1 81<Z>1K$i7 x > (VM) 14£0gff 
^tt^fc^KiJJll^n*. -emcWLT, Steffi v->> 
fcL fiSFtfnx- (VT) 2 0. 2 0' T»K*nfc 
l^±<n<Effi^nir^-tJ- (VP) 1 6£{S*_tv>*. 
XI/yH (T) 18 ft Ni:M7y>rtO 1 ^ 
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Tga»Ti (H4^J:tfH5»M) . XI/yHIl 
3 6, X^^-^3 8* 3*<ffi4 0, 5fclfc4 2, %<&U 
»*&£4 4 OViTtl^O^flg^tS. SliSnftiXU'? 

3» [0 0 7 0] WMllMl^itflMi-rAcfta-Hi-jujt 
T, l^Xl/yHIJSfc (1) *n*«TTS©ft 
»oTV*fi«©XUyHfc»-r*«MWmBt, (2) ir 

[0 0 7 1] ^Xl^y Ht>, (TfttofcUtt) fe^ 

[0 0 7 2] Xl/y H<D*^«C^^TIi, aastwfctte 

HOHflMbJt9le«MM:. WA^Mu 1 t 1 L i s p<D 
"touch" L t n d a&fJjV&M^* CML 
ST s ync M lw^-pT*iJW-C^<b|s)KS<fc;«flfe£«tt)- 

[0 0 7 3] T^U^*~>3>««fig«:^(-eJWL, 
50 -^Y-**^) % ^^WCfW» 
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19 



10 



life £-3 < PJWft*fc»4H«H«fl:fc»T«W«Wa^ 

[0 0 7 4] :i-im> xi^-j/r 3>hn-^ <T 
C) ttl/y Ha>feSttffit^(riTIi|W«fficoa^3l 
ST£) 5 lffl05^n->">?v (fiTFfc'JXh 

7y^t5) ir^oTXUy Kfctftfi^rs. TClt ^ 

tftoT, TCcon— Jl4i#— ^5/^ • 3^^*>3> 
£hU#-L*ft^ cn^O^U— >a>(CiDAT, 

[0 0 7 5] (fork— thread expr v 
[0 0 7 6] (d c a 1 y- t h r c a d cxpr) 

[0 0 7 7] (thread-run thread 

vp) Ht, SESftfc, raarjraftfc, ftSVillfiW 

Stlfcthre a d £ v pCOl^T^f ~#5fT^Jk:|^fA•r 
[0 0 7 8] (thread-wait threa 

fc, t h r e ad<Dttffi)Ptt£t-£3;^:/n*y££tf 

[0 0 7 9] (thread-block threa 
d . blocker) H t h r e adiryuy^ 
T^rtSU^xx blocker!*. TsVv 

(let ( (f 1 1 t e r- 1 1 s t (list))) 
(sieve (lambda (thunk) 

(set filter-list 
y— thread (thunk)) 



(ID WBH 5 F7-2 7 1 7 3 8 

20 

* [0 0 8 0] (thread-suspend thr 
ead . quantum) tt, XPy KiC^frOft 
W£'J^XX h*T** quan t umgiSk^A^nfe 

BUStl^. ^5T*^*^tC«, ^lxyHli, thre 
ad-run *ffl^TW««K:HHSn«*Tf. MffllB 

[0 0 8 1] (thread-terminate t 
hread . values) II thread \ZM 
LTv a 1 u e s £-eoD^*<b LTjR7T£~<>:£y ^ 
XX h^"-5o (yield-processor) Ht % 
SftoxWy Fir, ^oovpco$ii®£^s£>£J:5U#x 
XhT-5. CCDXWy FttaWft^x-f-ttftlf^llCSP 

[008 2] (current-thread) H : 

[0083] (current-virtual — pr 
o c c s s o r) |£ % Z.<D$-1\s~ *>3 >fl*> ^-©±7? 

[0 0 8 43 CL-if^ViT&M^XUy H^^a^ATf 

Afe#JHLTH&H. CCD^fcfflJSkfc-eGDop 

[0 0 8 5] C<D»ft»a*R0>S8ai*. X h U-A • 
7#-feXfc:Btt*:/P«/ + >if . ^l/--> 3 > (h 
d) , H©««fcftlirr*Th5y^ -5f 

^3> (attach) a— 

[0086] #ra*«©!E&co@afa<iift** 



30 



(cons (d e 1 a 



(flit 



er-list)))))) 

•est 7* A^arn* 5?-fc**sn*. yjjuftt. s 

(thread-run (car fi ler-1 Is t) 

(mod (1+ ( v m. vp — vector 
ra (current— vi rtual — processor) ) ) ) 

n) ) 

(vp. vm (current — virtual— pr 
o c c s s o r) ) &V*3&HB, Sift© V P £— ffit 



[0 0 8 7] 



(v p. v 



[0 0 8 8] v'-^lC^-r-5Ji8Bn^^b^iiiLr 



—479— 



(12) 



7-271 738 



22 



22 



[0 0 8 9] 



(let ((filter-list (list))) 
(sieve (lambdas (thunk) 

(set filter-list 

(cons (create-thread 
(begin 

(map thrca 

d-run filter list) 

(thunk))) 
filter-list)) 
thread-block filter 



(map 

-list)) 

n) ) 

-cofcarm, »awtt*»picjBjaLfe7-Yj^«, 

rtXl^y HIC^ttSp<0-r^T<DlS^^«tOI^< 0 C0>* 

(sieve (lambda (thunk) 

(fork-thread- (thunk) 

n t-vp) ) ) 

n) 

[0 0 9 2] ^T^f XU-y HcD^U—xa 30 

^flfi^^^o:^ htLT»fp-r^ a ^I^hU-A 

[0 0 9 3] 7^Wiaoti«5nfeXl/yFtt2 40 

(map thread— terminate fil 
ter list) 



[0 0 9 0] Z<Dis-7\Z&(D&5\z* cfcD-f-tf-fc 
[0 0 9 1] 



(c u r r e 



[0 0 9 4] <Xl/yH*W-?>^>?lt @9 
JP— yii, fork— thread-group fcjtrt' 

h— ©y>p-:/fc, ^©atbTftwr^. ioo 

(thread-group-terminate g 
roup) 

^ y >? . ni/£ nans, 
[0095] xi/^^ i^-:/tt*&, *(0^>/t- 

r/^-^ofcaexo^ix— > 3 > (#j;ttf, ^-xsn/t 

«flr&ffl l»^l/^W^-ya> 
(0!l£.tf» if*7* MAS) t|iWP-y 3 >2: 
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(13) 

23 

[0096] (thread-group-termi 
nate (thread, group T) ) 

— -T*— 5>-vtt, ^;b— :/rtcoT^T©X W F£*5 

>r^c<h&fr*pJsn^^K»p. ^-^oxi^ f 
»4tvrn*> ^ >-c^fcv> t v> 5 x^-^- u - # u 

[0 0 9 7] <SlfTn>^xh*J:0:xk!y H»J®^ 

XUyH^Umt). 7l/^K«»^D-yi> (TCB) 

3 2 (gI5) £VTfc&£n*^fra>^xh£IJ?liI 

abfcfe^T&o, -ena»©x^y^3 i£d-*jw 

F7WS»K:n>^Xh - X-f y^fcSMJLfc&Sate 

Xtr-h <«Atf» ttSMk WtV-* fFfli. 

4i«ft£oV»> XI/yH#ttll:WTanft 

[0 0 9 8] Xl/^H^r-h^Xl/^H'^ 
X^-h<D&#^£|g4^t\ TCBOOttJBte, ffff 40 

ERLTViS. fffl^W^KTjOtTCB Tree £ 
*bws&&, Ttc. (DTst—Y • 7-<-;bFl4£CF 

[0 0 9 9] «imA34 6 : Ttcb irwarr*x*y^£ 

[0 10 0] 8 : TttfiJfflT£SV^ft£V 



«HH*7-2 7 1 7 3 8 

24 

[oioi] 7>5o : Tk*&*vp±-csa&fTsn 

[0 10 2] yny^S 2 : T\t. F-hTN 

[0 1 0 33 ffWS 4 : THt. j»tt£MIIIR£fi«S 

[01041ST56: THSSfrtttTU AQttttlB 

[0 10 5] Xl/yHtim&D, TCBIi77-Xh 
??X<D, =L-*f\Z&^Z>*7i?3i? h"ei4frU. XI/ 
y H • 3>hO-^iXl/7 F ^U'/-'7^f 
CD^-en^ST^-feXT^S. SfLUXb";/ Ft>*^> 
©W5 i >r-tfcm:&*<h^ TCB^tXtCftlD3Te» 

>bD-7ttWCB^ &fc£j£$n*Xb'?/ Ftf> 

«ffirtc»tf&tr££*4&^ tcbh->xta - 

[0 10 6] X5V >^<D§fe3»4XUy FlCWrsBfc 

7*-^*n*^*^py Fic#r*s»«&»5£-r**: 
Slt^citJcG, «tS**i«U aaMtrsctfc* 

MSTfctl^CDT, XUyFIHjcr>3>^^Xh • X-f 
[0 10 7] X^>f>;?<Z>XPy MMP^Cly^tt, « 

Xb-y Hic^UTlFJO^T&ns. ^©sjoareoxh 
*nrv^ g tcbh vp vjiT^^-s^^xb- 

[0 10 8] 1. SftVJiT?*fM 1 OXUyF3W»TU 
J6^^JWiT^^o ^OTCBttSrJD^TOfc^©^^^ 

©vpirHiaira«att*'W^*j:tf^*uj4, s 

fciaifiVP_t-C7>LfcXb-;/ HO§SfTZi>^Xh^ 
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(14) 



4$Bfl¥ 7-2 7 1 7 3 8 



* 26 
[0 10 9] 2. &&mf? l/TWXl/y KjWRTLT 

Tt^TCBOL I FO^-;W^fiI0^Te>tl^ d £ 
C-CfcWt;. _badggfrn>^Xh7^ i&fciS^D-;*? 

[0 110] 3. V<0y-JU^(0«^tzii, #*1>UT 

• y-j^^josT^ns. p-*juvp:/— Juan 

LTV^V^«-&tC«, r/2TCB *J^P-;U 

• ^H^5VP<0U-*^ • 7-MZ&Bh2tlZ>. if 

(1) TCBoS5D^T^i:tmffiffllcj3lt-5^n^5 

Aogft^s^ia^fbreci, (2) -r^x 

[0 111] 4. ia«lC> TCBfc^P-AJU • # 

[0 112] <{£«i^D-fety*^>fifi^P*fe!y9- (J«£ 

jffliarc^*. VP VJiT9MrUT^*toOX 

l/^HQt NICEST* dt^ftl^tlTHSXl^s/ H 
Ptt % h^nv-Wl-VICifi^VPiT^fr-r^lrTfe* 
(define (u p-VP) 

(let ((address (vp-addres s (current 
ly-vl rtual— processor) ) )) 

(array-ref 3D-mesh (vector-ref 
address 0)))) 

i. mmtj:®!mt$7ti±iy<9-\zw \*>#isnz&is.7 

[0116] 2. &«h#ns?-i:::fc*:r£7 FUX&& 
VPK&gffi^***. 

[0 117] 3. fiSh#Pv?-ICi5^T«^i7HU"> 

>?<n&&\zm^*T-*mm\z&m7u^y-**:&m 

[0 118] 4. ttm47\*UZ'>tf<D7ais-z?*c 50 



cojc^^^^^fg-rs^iidtT^^. «i*.«->xmj 

SiffiVP. &VP, *VP, J:VPft£) frZmtlTfi 

«*/xtah h#p>?- (WAtf, /w/x 

fctitffe-r*. VPfiftgOWya Mythic 

#Pi;-TS«$n^a^^^jr^rfUXA$«S6T 
[0 113] l#7c&:/D^A£^HaLT&gr*'<5. C 

®^ ^ p ir ^ y t; > i^-r -6 c 1 j: o 

T, 3*7cTP-S:2^7CTl^-^W/jNr^. tSoT, 
^^nfc&ffl^PiiyltOft^ «MM^Pi:s/1ror> 
SttPIUT^^ ^^ScO^P-feyy-lC^y tf>^/5 
nfcXl/y F«i^TraCVP±T^frT<&. :/n~>- 
v?Vge t-pm-he i gh ttgc t - pm-w i 
d t httttgWVv>-^ 7x-XlcJ:^TJ5-A 
6ti*. Kffl>^DirvU*©»»r HW>->^ii, ere 
a t e - 3D-me s htdVtmisTcT \s .(OMmUT 

[0 114] create-vp^P^-^tlt ge 
[0 115] 



[0 1 1 9] <X W K - 3>hD- 7 >Xl/y H - 3 

^Xl^^H^i:, ffiO'>X^-A^i:(O^DIRD^« 
5. XUy H • P>r-P-^<DfatSlK/j:«fig^ XU 

flBffl»tr<i:oT. §!&^«>Ji-C7>UTV^(Kfil^Pir 
^tfSr*i;fc«^IC^ WXl/y H ♦ P> hP— 
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(15) 

2T 

X^yH*7 >TS^t*^ft8& ft. 

[0 12 0] Xr^>y©Xl/y F • 3>hO-7^* 
WTft»&\ VK^^<DMi»^ra{a^e^tcft:S. 

«^M^ttJB31»^D->-^^^09 1 0 \Z7jk 

"T, Cft&CDr/D^— i?YTJt6ftftTCBT0>«fe 

ft^l/^ FT^>LT^ft:/a^-s^at^ftfStt 

[0 12 1] ?D^ts tart-context 
-swi tch (fed 8) tt. -e<Z>3l»<i:LT. ##©X 
l"*F (T^tJ-fe, TCt:AoftXl/yH) KfcfTftM 

xx-^vsn*. Sfrbuxi^F O&ftWiT 

CB) *t* :/n t pm-g e t -n e x t - t 
hreadl:J;oT«»$W. 29 
[0 12 2] 7>^5XW«y H*t«ti«*iCtt, 
y-ytlil^ (false) CO%&. SttG> 

FttWffi^vsftft^ (^^-«ffiic;&*<tb 

T) , ^^^Dy— t pm-vp- idle 

ttmp-vp-i d i ettffl/rcDisgaa^^ff^;!^ 
? u #xx h-r* ct*«T*ft. 

[0 12 3] ^0t?^x^ h^ftOTCBT^5« 
Sftft. MSftfc*v7>?xir FjWffi©TCB<D*&lC 

©vptra&iesftft, -tux, 9«e<z>tcbi* (^ecott 

[0 12 4] RS*lfc*y^ai^ h*. *fr=l>^X 
hWfcai>Xl/y H0>*&fc:fck TCBflt-MlfcS&L 
T91&MJT£ftft. COT C Bid:, next-stat 
eno7^^H^T5/ Hcr>»-&(rttmftCDTCB<!:tt 4? 
ft, fcft^ttVPCI— ^-Jl/ifdJ^D- /W- 
:7—;i^£SflD3T&ftftTCB Xl/yHft 
»*^d 5/— s t a r t - n e w- t c b V*T 
XfT€flWrft. coxWHtt* -tco&frnv^x 

h£bT#rlA>TCB£>«V\ ^Di/-y> start 
-new- thread (H10M) £jSJ8Tft* 
[0125] finish-context-swit 
c h<7>3— F (09) te, start — context 
-swi t c h*m®* J £1tXUy} t KJ:~>xmft'2tl 
ft. *<DBHI±, SfLV^XU-y F©VP;7.f — ;H«*tt 50 



4MW7-2 7 17 3 8 

28 

jrrftfc&lCX^y^-TOFSftfcXUy F (COy' 

D'>"^YrtT«wica-;i,$nTv^) a«R»T3n 

ft* Ifl^Vv H««VPJ:»cBtt*nfc«TO*ai» 

itft X^yK^VPOl/ 

&$"3~ft* !/D tmp — enqueue — rea 

dy — threaditmp- enqueue — sus 
pended-threadll Xl/yH-#Uy-- 

[0126] start-n ew— threa d£>n — 

i^x^hfcL ^-ftt^LTTCB^Stlo^x^ft^i:. 
IWB*SMftTS* ^tVX^y^^b -Xy— -A>H7 
-*3 J:Tfi8S&>? U >7 y ^ - a - H fc l«ffiTft tic 
fcft. Ei ^SfcBftfctfxPXD— (start-new 
-threa d tftBWTft** > h> teX 1^7 

F • X*y*lcaffllC»«RS1i\ ^ni:J:oTXl/7 
F#««rr ft n y if ojHB3»«a»K:«W»Sftft J: -5 
tc*Tft. Et ©W^fiiCJS<3iBtU03-F{iXWy FOX 
^^^tt-^^y^ Ol/^y 3 >L, Et rft 
£l*LfcttSXl/y F**ffi©-S£LTte«U IOI 

>T-^*«rUV»XWy H*WRa*ft, Et fcfc£W:r-£ 
y£ • »7-f >F • :7*~i*ftfc:&3;ftTV>ft<zrc* XV- 

— - ni/^xa>$ftftC t rt*«BE3 ftft - 

[0 12 7] #-^yS?- 3^ya>lt XWy FO 
^x-f j^jBSftftMtefftotlftWfttfftS&Vi. 

xwf {TsVv^nvyzimmttTzxyv 

ft^S^a&Sfc86T*ft, Cft7>tfrt)ft^ti<h, ffiox 

^Hft^SftCtJw^ft^^-Cfeft. «SbfcXUyFcD 
8B«S«liffiOXUy FlCfflDMiT6ftft<DT, dfttt 

[0 12 8] <XUy F - #U>— • T^-v J ^>&^ 

-feytf±TOXWy FOX^r^— U>jf«J:r^»ff»r 
IKI'rft^T<D^iJ->— (Dtfc^^ff XUyF-3> 
hn-^tiXky F • #y->- • 
abO, n— ifori— F^ft^T^-fex-e^^t^ xu 
y F • 3>ho-7lt *0££tcB3ffiLTft€£fr5 

F • #u^- • 
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29 

[0 12 9] T^Tco««l^D-lrvU-lif^-<oxUy H 

3; 2f £ KSfc^y^x 5\k £f&IfflT£ <t H 5 U 
[0 13 0] ^^y^#Uv-'7^->;t«Xl/y 

ot^. -ensnftjeoxi^ k • #u->— • v*— 

a.— tftt, 7>tSH:*7n>f72±<Dmm 
\ZfcCT# U ->-0>tfeg££;*7 X * V-f Xf * £ t 

[0131] vpii-en^na^xw-; h -*U'>- 

^.-U • 7P hrUVftSVitta&SXir^a— U > 
[0 13 2] X-tV >^<D7l/y H • 3>hU-7ll 

yir 1 6^-5-naS'COX^y H*#Uy-- 
(TPM) 1 9£#LT^*. ffiot, ^^tlfcteffl 
T 5/>rt(0M5V P 'J ^— £3£5!T^*, 

TPM1 H<0X^rv?3.— U >£\ 7a±v/V 

[0 13 3] y^'jy— > 3 >^OS«JOXy^^-U> 
<&*^li£§££f> :/P^AlC<hoTffi£T&*. I 



(16) ttm¥ 7-2 7 1 7 3 8 

/OlrMaiL«:yD>-->?v^^fTT'5X^y HH, gr 
»fcHflBLfcJi^*>**frT*xu^ KifiBttsx 

^7y^-y 3 >lt WiF I FOX$tS?a-»J> 

[0 13 4] ryu-«ijS<Di£^jyay^AH, UFO 

fcfct^<X^;i-7£^£££fc£oT, t>o£ 
t>&#l::!lftf£LJ;5. TX^/7l/«y - 
10 &Z>\,\{$V—$>— - 7y—2± - TJUzf DXA£^>2lt 

> * yUx>yv 3 > - x^t^jl— ^Sffl tactic J; 
oT, JzOSWirSSf^bJ:^. CLtlfcCDTt/U^— >3 

[0135] *«9n*. ^ut/i^u-A^-^cota^^ 

a.-- tflc^UT»^^*Wca/j:<&xy>f3.-iJ> 

$ntv>ft^^ m—o-t >&—y *~-x\zvtt>&\ft\ 

30 KTl:/W>^-7x-xii ^>r^< 

a.-1f • T^Uy— >3>l^ Xi/y 
H • *U->- • n-^ttXl/^ H - 3>ho«7t 
^>^-^jc-X^^lbT^<£>^«li/<ct^ 
[0 13 6] ( t pm- get-next-threa 
d vp) li^trvpJiT^^-T^^b^-f-ttfficOX 

[0 13 7] ( t pm— enqueue-ready — 
thread vp o b J ) tt, X Vv K&-M>t;iT 
C B (Dl^tl^T*^ 5 o b j * v p lcB9ffi^-5T P M 

[0138] (tpm-priority prior 
I t y) ^JctCf (tmp - quantum quant 

5£? [0139] (tpm-allocatc-vp th 
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(17) 

31 

road) lithrcad^vplCW^^T^ vp£t 
left, t h r e adttTPMlCJ:oTtt3g$n 

[0140] (tmp-vp-ldle v p) It. v 

J0 

[0141] (tpm-enqueue — suspen 
d up-thread) It v pa>#gft5fr3&J-kO 
thread 

[0 14 2] TPMIt 8fffi*<0XWy HWinxy 

<o&*m&i£&ffo. (i) «L<^nfcxu^H 

£j££tt*-c£VP£giR-f*. (2) VP_kCD£<DX 
1^ K£#rrT^*^£fti6* ffi(DVP^e>£cDXl^ 

[0 14 3] fiSJOSfcm, «J«8^ftffifW5^5fcs& a? 

[0 14 4] X^a-U>^ •#U5/-HtV><"3*© 
[0 14 5] D— *U^-f : Z&z/XT/xftlzm— 

fed*. K«SnT^*^ft£l::t>£^l>T* Xl/yH« 
[0 14 6] JiRfiW* : «f-&fr#lfck F I FO» LIF 47 

A^lBiifftUT «B<z>fc<0(D*-e> ^ssnr^s^ 
? 

[0 14 7] C«5rS-ei:(Da«JK€ra^WC<J:oT, 
XU^H TCB^rri^U^H) £X^r 



HBR¥7-2 7 1 7 3 8 

32 

VP(riiLTD-^;i/Tfe^. L**U X3r5>A-JPS 
nfcXWv H*«»bT^S»ftrrMI4. ffl!OVP±eD 
TPMi:J;*#fT<0*~ hT<fe*a>£, Pty^^n 
fcl*ntffc£fc^. COS©X^x;L-U>^#jtti. 

oT, *Rtf>B»ffr<D* *yny*>jf.xi/yH OS 
jftf$|UJtt&tffgi;) WfttS^tfi, fc£A,£<DVP 

yHo^fric, &£A,<se>P$ifJi, if5>-£fc*. ceo 

W^<0»ff^fiB^:TPMi:^lrffiVifci:^, 5>ojfl6 
ft Ut* ^ -f*^ ff^J^ □ y ^T* n £ \zft r> xn x h*t 

[0 14 8] Xl/y H •#>J5'— 3>**ttfLV> 

fttSfr^JttX W y H • # U S/- • IHoflte* 

^ATMU VX^KS^JICXPy Hfl>r— ;u«£/fc-r 

Xl/7Kt>i*)kK K*#<0l»ifi#T**. cn«&li 
-JKVPJrT^>m«. «*lc:/a^-f<S~<!:ttft 

[0 14 9] <^ 7t-yES»«#>^ y t-i?fil 

#-hBU tola***} • 7-*7^y* JiT?#W^ 
'J $r*3ST-5 d ^ a, y H «B/MBO t» O <h 

-r^/tfticx^^ >?ft\z&rtt>t\ftT-?m&&x& 

[0 15 0] x^-r>if», ^v*-^«»idhWl:** 
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(18) 



*Jf Bfl¥ 7-2 7 1 7 3 8 



33 



34 



*^*r2nT^*. £ne<9#-Ha. ^^^e»j^+ 

[0 15 5] mxM. ffiVi3fc:-^ffl^T>t/ir-^ 

[0 1 5 6] ftoT, :3€f©«Sa»WB»;:J:0. 
(put (lambda 0 E) port) 
^ny-^t ( 1 ambda 0 E) ©BfrSrttpo r t 
^WSn^o po r t JiTl-v'— JW&<Z>&oiz$l& 



) 



Xt^ >^©7yy^r-v 3 >|±rL-lf - I/^UCD 

[0 15 1] tf-Hi^r-Xh^xcoy-^flligT 

[0152] 1. (put obj port)lt o 
b J £po r t fcntr-T*. £©»fmj£0^£#W 

[0153] 2. (get port) li portrt 
(DJaSJtf);* ^ "fc— S^&£U port J&t^CDS^ICte 

[0 15 4] ^-hP^^^UiLfc^^x^ htt, 

(define (receiver port) 
( ] e t ( (ms g (ge t port))) 
(fork-thread (msg) (current-vp) 
(receiver))) 

^xx h <Dfgm tmtvxmLw) i? xx h&&t*An 

3Q 

[0 15 7] CcOX^-OUQiififBli • *y 

•fe-S>" fcBJtt*vri>3. ^tltt, **/-fe-i?£gttia 

«6&nTV^^^-CfeS. Kffl^n-feyirtxky 
-f >*-:7x-xii. ^y-b-^jffi^1f#-h'rsfe 

l:totSgT*§, (l) h7)t*^fiS^ 4» 

i?x£? h(C*#-T^^7r 7>XSr*LTV^^-^x^ 
(2) 77"Xh!>7^Dy-^H 

p-b^/1r±<D^aLfcX^?/FrtT*rT'C#^ 

left* 5. &9l<Dfcio* ±&cd09T, E 



-^^-X^^rt-js^nir^^jr^rje-^n-S© 
^DeKWJ^RPCX^<;i/OiffimT»i^<er—^ 

[0 15 8] ^r— x h^5X(oya->-^v^J:rjc^ 
X h^^XoyDSy-v^vliT^^^- ^yfe-5?ft 
[0 1 5 9] <^^U^>X^^>^li^&Siy<^ 
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[0160] <tB««»>x^ >msTCB3 2 
K:raaLT3o(Dee»&#** (0 5) . ssmx* 

X hit t -£ft%>)V— b ©— <«T&** 
[0 16 1] Xl/yHC^oT^-f^-h&t-y. 

ox ^ y ^ fl^iiffltty^-f ^- h - b-^ftco*- 

ftCDX P y KfffllC^ Ltt* *n&W 0 MST**fc V> £ ^ 5 
[0 16 2] H»4, 7,Vv FcOX^y^i&S 

W4d— • h-^wc^^txTVi-a^-^x^ h£ 

T^irXT^frV*. ffi^T* FoDX:*y#:fc«fctf 
- ^^UK*^TSSHf ^CtjWTT**. XWv H© 



M¥7-2 7 1 7 3 8 

• ni^i^vs^Ttf-hT^tet^roxw-y h 

b— ^yi? • 31x^^3 >TS. ^T, fflCO 
XI/yHtt, W>E©XPy l«3W£.<DO-*^- b-y& 

&ns, ZLCDJJ— lyz?- 3l/^^3>(?)Xh7r^ 

2 4>&rJrtt. d— • b— tV>#— V s ♦ 3 v 
[0 16 3] X^-f^tt, HOft^O 

^©ji»-r^fcis6©^a(hUT H xi/y h - & 

fOXl/ypli *tl*t«L^^JU— yco— SB 

-^(Dfc«e>ro^l/-^ 3 > (MA. HE. -^ABtlfc^V 

^:if) t^lz. ffiWcoxi^y H<o^l^— >a> (MA. 
«» *T» $«5lw, Xlx^H-y 

[0 16 4] Xl/y H • ^;P-^A^b-y, TfttJ 
^^D- ;tJk« 5f4, Xl/y H • if 

**fc-yrt©»iiMwitt«irk-^nio 

sirt-^icia*, (b) D-M-t- 

ice* $ nfcMWtttfnjK'r « c t *Rm*z> ct\z 

< ev^*lcxxy-^5^tcj;^rft*5 a ««tw 
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[0165] mm-r^t. $>z>xuy wzmm-tzxi/ 

&f4**t-^ftO!)-^x^h**U (2) U-tf 

^i^h^U ttr (3) *fi-b-^rt(D#fiSfB« 

CO 1 6 6] n— b— ^«>A5K, . 
^-^•r^o^i/aMt a— #;|,- b— :/K 

y^i:X^S*^7&t*£*>&T&*,> &^5. 
^□-AMP- fc— ^©WOSTICttb— ^©Dy^3&ti» 

[0 16 7] ^0- AVW b— ^y^- 

S'X^ArtflMBCDXl/y h\ -T&fc*. "**5>-3 
[0 16 8] #ifa-/i/u- b-^«, -tftfcDMiu 

iot, i»$ns. yp-AVP- b-^tHifi-r*x 

x^ h»T^TSrL^b-^3hT-$ns, 

[0 1 6 91 <ttft«8«7^>«J:ciWr*4liaA9^D 
JPOttftfrtt. tt^WjTv> (APM) (hPffcftX* 
[0 1 7 0] APM|iXf^>^*V7 h^X7 • 7- 

[0171] i. a«©{EaT^>«r*#-hrs»* 



(20) 4^rBfl¥7-2 7 1 7 3 8 

[0 17 2] 2. ^X^Aft^^T^T©^*^ A 

[0 17 3] 3. ^XxA©«ia«rA-H^X7IC^-r 
3 7 £HrX 

[0 17 4] AVM\Z)V—Vfom^is>LmZftZ>m*\ 
P-X^M, fefflr/a-feryth ttetfMXU-y F£d&» 

tttUKffl^u • v*-v*ic#1-*7#irx^R£# 
StiTfcrj, *©*£** l><^©m®ft^S«-a*f5S 
X l/y Fte^-f h^X-f hXfe^, ~>X^A • 
T'^TCOv'X^A • n— JWA, '>XtA * n— Jl/£f£j&£ 

r*xi^ F©»frn>^xh£flii*T*bn*. ^ 

7i<5:tt^pJffiX*S) , ^LTAPMCDfiP^^v-XT-A 
ft ©"T^T©^^ >fc V y tf tlT 

m<D7n?7$>ymmmz* APMft©xi/yH*a 

©tfl<zrr-<T©XW Ht^«lz(64®*r^ct^x^ 

^ (c^ffT^^. cnnxi/y Ff^©iie^j:^i/o© 

ol— ^©EJ». feSV^iP s y c h e<D&m^a±^ 

[0 17 5] (E*^^>ttAPMfcJ:-DT*l«an* * 

[0 17 6] 1. «rHrMK«7 \*UA&m&&&tZ>* 
[0 17 7] 2. ^©7 HUX^/WlrAPM*-^^ 

[0 17 8] 3. ^(DffifiTye^^^UHlsfiffiy 

[0 17 9] 4, CO^y br>4/tettft««»^0-fcy 

[0 18 0] 5. ffim®m&)7a±yV±-V7>2i£Z> 

[0 18 1] «*^5/>©WBCtt, ^©Vy>J:T7 

**U ^S>>ftT^fTUTVi^XUy H^-^>U 
fcfAWX&t^T^D-Xt, ^L/TMt:, C©T 
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[0 18 2] ft^Dt^tftMl 2\±&m7nKyV 
•3>hD-7 (VPC) 1 3 tfiSyn-fey-y- • #U 
is— • ■**—$>* CVPPM) 1 5)&^^ f VP3> 
ho-7tVP#Ui/- ■ *7*->?-\r£:©|iO«B:, XW 
y H • 3>ha-7iXl/y H - #U i>- • v*— 

P#U^- • T^-v?v<0{&«#T*^ a VP 3 > ha 

tt«?\ VP3>ha-^^CDft^$ff5fc^lwVP 

[0 18 3] »««:/D*ytftt^Tn— CDVPZI> 

a -fe y i^-ofijffl X * v*f XT* C £ *i*MB 

^x-xAtt««baw^a-tyif±-c^t:vp5pu 

p-^b, fiffl^p-ty^Kag^fc^'g-sS), -ecDfts 

[0 18 5] VP^Uv-^^tlt ftlM^a 

B3po^^»* b jbik, VP^U^- ■ ^*— 

^ttVP3»*6PP^<3E>Tyt!>y*«B&*. 

fcVP7Witf^>£nfci:ire**o »2fc* #U>— 
•v^-x^^ PP±©VP£5>31**)HS<>:JKfiB 

ff) S««^<«^«tfea&«. 
[0 18 6] ^n&CD3-3<Dft5£lwJ;oT\ VP#US/ 

v p &i*ric»8!i^^-5^&fti&^ e: &#?T*«r«. 

[0 18 7] Xl/yP • • T*— ^fl^Sk: 



«BBV7-2 7 1 7 3 8 

*— ^-<>>?<omt£z>®<£\z$$i,xmfzz>m 
n**?z>&?\z*7,*^ x-rz>z.tmx*z> 9 hcd« 

^SS^X^A^ £fi©«t#£fr$xX7\k&^ 2 

[0 18 8] i&WZ* XWy H •#y->--T*-3>* 
tex W> HIBOft«*«*J:tfftiESK»tooTU* 
«a^a-fey» ■ *U^— - v*— teffiT 

[0 18 9] APMftcD&ttSWt/PliyltfcL 
n-fcy*- n>hn— ^ (VPC) tfiaL^n-fey* • 
#US/— • V*— S?^ (VPPM) &<£A/?t>2. 

-T<&£o VPCtt«ffi^n-kyy-Jio«ffiig<fc;jc*« 

iiDf^^c ^^SSoVPttftawyp-fey^T^ft 
SfcfrStlT^S. ^5^-#fi8<DVPtt5>T*c:i:?fr* 

VPlt »^ **>h <«*«I/0> *tt 

"3T^XUyH**ffltM. VPPMIiftlWy 
D-fey^JiCOVP<Z>X^r^— U>if*fT5. -^©X^r 
i^a. — U > 9 • # U ->-|j;T P Mi>m & S t> <D £ PMST 
VPPM«fi<ta^nM>^-7x-X$V 
P3>hn-7l:^Ltg«t5. Sfc5X7V>^c*> 
i^x^AttS&^vp^ijv'- • v^-^^^w^t^r 

[0190] <mftn9tto>nmvitwi#*zfiaiL\t 

a>H7- UXPy Fft-cftfrrsyns/— 

OXUy H(03>er^X hSfflViT^ff-r^- Xt^ > 

^pt^tpmsm («a «ss*^ ^ 

:^x— ->3 > (-T&^, yo^7A»A«?>^, t 
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(22) 



&Bfl¥7-2 7 1 7 3 8 



41 



42 



T£. ^tr. ^XAW^v-li (a> igfECDXl^F 

A*, (b) *-yyh*XUyF£fi)lflSttS7K 
l^i (c) £©^n-fcytf htDtocOt^n^OXP^ F 
^pJl^^^^fcfelZXUy H • 3>hP- ^Srzi— 

[0 19 1] X^^>^JC^^SiI<DWn«L^^i^ 

to l 9 2] i. co«»»«l*a»iyn2/— i^^Tf* 

[0 19 3] 2. ^ff^>^XhSrS^lft^ 

xi/* H^ff3>x^xhir^viTat»ns. 

[0 19 4] 3. MliSfiE<0Xl/5/H©3>T^7h 

[0195] 4. — fl^x/t***ftfcw*tt*-Y 

[0 19 6] 5. m»^-yyh-Xl/yKA«$ 

1: (define (exception 
a r g s) 



* [0 19 7] 6. «fl.£«3:j-FttX*-AfcJ;r3n 

[0 19 8] 77-Xh^7X0yDi/-»i:Xl'y 
F\ TO3>f^al-y 3 X IfcWft:£H&®*£co 

#, X^^ ^^IJclCOCT^CO^^^A^^t^nJ^ 
[0 19 9] BJBLfc«#KD^-yy F • TsVv Y\m 

K7— &&j&?«&x#t&«. sd&A>F7-t>x*- 

ifrfcXUy F£**r*7^ ^SlMiSftflOXI/^ F£ 
x-*>3>*\ a > F^— ;i/T£ <t a c^tn 

[0 2 0 0] 

dispatcher type, 



2: (save-current-contlnuation) 

3: (let ((target handler (get-target 

&h a n d 1 c r type args) ) ) 
4: (cond ((eq?target (current-thread 

) ) 

5 : (apply 

6 : (else 

7 : (signal 
r g s) 

8: (case ((exception-priori t 

y type)) 

9 : 

1 0 : 
—thread 

l i ; 



handler args)) 



target handler 



((continue) (return)) 
( ( I mme d late) (switch-to 
target)) 

((reschedule) (yleld-pr 



ocessor))))))) 
XU* WT.PypiZS&mztiZ. Z(D3>y"4 -zlJL 



7fc6* «»3 >t^ -iX-y 3 xa^tlft 

v>9—*fv F**##CDXWy FTfcWg^Kte, t^X 
/^yftHi«n^-yy h-XI/y FfcS* (7-f 
>7) . xuy Flc««&i8*c:t»ixUy Ffe*W 
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-y a X 1/ y H OX^ «y ^ ley y i/it5 C t 
LTS^A> F7-;W*fT£n*«fc5»CT£X F& 

mmmtzzttm&x&z. ^-y^F-xwyFi:: 
toaswi/yH^t)*^ (5-y>i i> * 

[0 2 0 1] Xx*>^<D^A>FU>^«|gWfe<& W 
XxAWOO.— If • l"*Jls0XU? FfcSfc>ft^<DT 

(W^tf, *ne>tta#©x*^i:t-:/£j#oT^ 

-5) , Wit a > H 7-lil«(07 h ^ 7 7 

5. 0WA>FU #xXA£, *D»U"<JKD a? 

sens, cKoctit ±B*-tt*»>»ftfcfct & 

[0 2 0 2] 7 7-Xh^7X©7D*/-^t^l/y 
F* WStta^-f =aX-5/h>, lk09ftB1K(HK«> 
ffl»3^ ft£tfk:i$-fc7FV->>y • *t>~Xl*ifi 

\* Z. V>fflftO : £5 £ )V&t}>Z-2> £ 2>. 30 

[0 2 0 3] <Mfr/t7^ A>«±, V7 h?X7 - 

[0 2 0 4] ffi»±VTa>mftzfvtf : ?I*'V\Z> MfTU 

Ocontrlbutl n sfutf^Atit&KmfityX 

i LTCOMff 7^=f U XA*«ffr*©lC#»fcaLfc 
sfr^l'— >©A*\WT»**. Mu 1 t 1 L i sp$ 

F (7a-ft-E) M-ffEOfefeOXl"? F££ 
Ttfct^ 7a-ft-^Utf5. 7a-f 50 



*&Bfl¥7-2 7 1 7 3 8 
V-lr^y^T^^W*. E4<$£g|-llL;*nTt»£tt£» 

[0 2 0 5] gdl 1 >y • yny 

n-fex • y«J— ©^;HTifH»*fT5 7a-^— »i 
i + 1 tx.£\Z$mx*:<?> z f\zn VTWZfrteyt— 
*&ft1t$:1fl,X^*t^fZW&\ZliZ* z.<r>-?u9 
?l*\Z&\*XT~9&HWfitbv1d&&* ^Dty»t 

M©7a- ©t»Otl/T*<!>j|4>J*XX F"T 

3**»ft*#»**:/o*x«>»d. *ns££rt-r* 

[0 2 0 6] 7>Vv F©»W3tt«a8tt**^*rf^x^ 
ntxfcy^xa^y^ 

[0207] *y?***xt7*—**—to&mmn** 

(a) ig&£&ttX^;x-^Snfc£^ (b) M 

iwftt*. (c) x&iMEffiUfe&«oi)rn^o 

$r-XT?tt* ZtlZOXUy Fftt)T^»]fcte^®T& 
*. **~X (b) Tr liTc ««aT«*-c? 

a^fSW**. 4r— X (a) G>«^ Xf-f > 

>r?\zm&te&mit&ff$. £ft\z^x\*&T\zm\ 

[0 2 0 8J TFIl TGrtlcraUfcfcfcnfcKIS (E 

»j-r*ck0, tfu^-^na^ox^^^ Ft— ^t&ffl 

Vi"C!ff«-r^Ci:^"C^^. *GR, X5^>^-CfcU E 
^l«^Dy-y>tl/Tftk GO^y^&mttfi^C 

\z7uy?T2>li^'5j£XZL0>am{miEL^ Tr © 
fiftW^n >f^7hft)H E ^fflWt^ ^ t \z ±0 
T» Tf dtKffPrSVPr^ 3>5^XF * 

aEffrsfcv^^-zt-^y FfcAtoa:^. tf 

«>TCBdtftt)|-fflV^n-5a>T, Te IC^tLTTCB 
[0 2 0 9] COS2Sffc«, □-;HTWXl/yH^ 
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ffl Pitts T c WTr \Z£Z>X^*n.y-Tj y • 3- 

l®^a7f^y^Ui/H (Te ih^) t4#(& 

#fcJM*©XWy K • 3>f^Xh^. b?&>U © 
JK*f&£tt£l;:t4. T, ttTc SRttr*Ct3&«"C#, 
*LT» Tc ifi)V— y*r<5C5TTi *>JI^- r/b±3. X 

F*t8M*-e#£j&». £fel4-C«ft»$$, 3.— *fl4 70 

[0 2 10] X~r>< >yte3>^X h - 

X-f ^OW- ^yP&ttMSi** ^LT^ 

F#&iR£nfctt&tC&D»*J;5^ XUy VWzr- 20 

VT^zxuyF&*nz<D&&Mtitv%zm\z. :/n 

^ytm««*ntS*iate{£©&*x W> Hc^lffiiSra 
tebj;?, 

i^fc^X^SlJBRfcL ffc©&#JL i s p^X^AICJfcjfl 

©Xby^:**— JkF&SA.&IB-£. Xl/yK^>7 ^ 
<Y> (TfrfrS, SOD c©«3Mrctt. 

£#j£©»ffi©J(ji/y£;?X^I;:3rr. XI/y^RiR 

o*bT^iS^n?iu. ^oiaara^n^^vo^A 



^&B¥7-2 7 1 7 3 8 

©straws n*. 

[0 2 13] XWHOftOttlH^-fc^X^t^fc 
2 0©AT^^T^S. (1) XWK<Z>MU4* 7 

hn^?^bTt)fl»< ft W>>-fc*x**fl»4ya 

—A* JUL i FOX^ya-J^, -f >^-f >£ttfcXI^ 

(2) ks?— ft^x^sisii, l^co^D-fe^if 
fc*x^©£j£-et4> ^x^tfxy-f— ^snfcts, 

7»Vy H«iR0«6J;t)D-jSjU7M^ffi: K"T<5. ^2 
(C, b-f ^-;ft:*X££j£©*^©#-^y - 3 
->3>T*4. ^X^Aft©t~^T©Xby F^lL^-fr 

xi^7 Hco©6tcD«^ictec:cr>M»te^:Vn 

[0 2 14] iW^ttTX^ • X b — ~?<?)/\ 7^ AT 

-ftftSSTifc*. coftffiTte. S^rtifcr/n-fex© 

srte&r^o yu^7,(o^m\tmmm\z\^mmr^- 
?mm&zwz4kft'&ftm»&mvTftt>nz. ^x^ 
• xi/"^« :/D^Aa*btfbfct xhy^-w 

:/P-trylJ-- ^y h7*-A±0^©»iyn^7 

X*<ftV>A> ^bTz/nitxtD^-^U^ 
[0 2 15] X^-AlcfcttS^r-Xh^XGD*:/ 

^sisi^ia^bbT^-r^fc^icx^^ 

[0 2 16] 9?M*ftWx.9 h-e»D, ^» 
^>hTl4^C^cOT, 77- X h^^X©l&7npJte^ 

^)u&m<owmz^o. ^^a^Mt^itrasstt^ta 

^^ra±TSiF^j$n&^u—>3>j4, ^n^©^ 
[0217] ^Dirx^b^^^^^y^nn^ 

"7* — tW4n, 7yf- 5"3>©» 
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[0 2 18] (get TS [?x] 
(pu t TS [ <+x 1] ) ) 

[0219] c<ommm^\t^ft, xu? pgntfefMi 

*:/DiiXP 
[0 2 2 0] (rd TS [x 1 x 2] E) 

x 1 tx 2te#:7*— v;i/T7&*- 2£t;i. T 
SrtO^^^^U—^a > (s p a u n TS 
[Ei E* ] ) OD^#£LTStf£nTV>££ir*o 
'Ot^l/— >3>HEi £Ea =£3hJfT-520©XU 
(TEt &£TSTK2 tflf,S0 £X<^3.— Jl^f 
5- TEi <hTE2 *^l;^7t5i:, MtlTO^ 

^- ^□^-^■WS, ^tJOW^TXl^ HfcaMU&fc 
thread-value £58ffl"3"£* 

[0 2 2 1] L*»U P^fr^tiSt^TEi 
X^a-;V3tlT^5«<&(;:tiU Pti*tl£Blilk:& 

iKT^, -ecosK^x i fc-ar^t^fcmsrrs, — 
y;K3E>u— ^tattr. -e<z>». ffi(D:/Diixatc<iDN 

A:5TE2 SrKljKi-^. TEt attfttfx 1 & 

— FHUfcfcTE* *aAfc(RiBrc«*. T 
Ei ^fciiTEz ©V^n^-r^fC3Pffi£fToTlr^ 
fc^fcli* Ptt, la (&fcl*H:#) coxu^HT^a 

[0 2 2 2] 7Jt4>9<D+ 77-Xh^7^©Xky 
-TJKDMJHft 7a-ft-/3'y« tow 

[0223] ntLmtmmtezfntf? $ 



(25) ^0fl¥7-2 7 1 7 3 8 

^X^^#"hT^>'X7 : 'A^S^«KtC«toS2^) 
At, *Btett»fc*±*J*tm«JB (^tT, 
[0 2 2 4] X^-f >ytt*OJia:fc,fcoT, 

[0 2 2 5] 1 , :i— if#X HOffiflcJeffl^^W 

10 [0 2 2 6] 2. WXl^yH^Tlfctt, &-5X 

[0 2 2 7] 3. Xl^y PaWftOXl'y Hft»TS** 

[0 2 2 8] »9£M&&7u 9 72*-?* sere. 
* x ^ im- 5 t fr ^ o ct: d * taff-r * £ t **T £ 

^X^Wffl^tp-eSIOlOKTrs^X^ot^ 

a? -e<o^x^co3ia©q>«)^<D^x^^T^T. -ene 

[0229] wal t-for-one3^h7^h 

;r<D3l»©UXh£3f<BU ^OfafiJ^51»(c.i:oT^ 
*anfc«*K»a*, »7T* 0 fiE^T* S3i (wa 
5S£? It-for-one aia2...ai... 

[0 2 3 0] AND»MLfcwa i t-for- 

ai i h<Dttm<Dmm*?&*. z.tibmf 

t^CQ^^»ffl^ii:«i 0 8£^T&m (wa I t-fo 
r-all a i as . . , ai . . . a n )tt, 21(0 

ait-for-o n e ^t^l^— > 3 >0^t^*lr 

[0 2 3 1] TCliCtlf.©t^->3>^ 
Dy-yfTfe-5b lock-onse t &M^Tt£!& 

ts 9 xix,y h*3J:^tcb^ zL<Dmm&y-i&- h-r 
5» a«ciwrsfif«T&s. 
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[0 2 3 2] b t ock-on-sc til XU-yKco 

f:wa I t-for-on e rt^P— v'a >*5 i^wa 
i t - f o r - a 1 1 ^l/->a XD^IftCMUt 

block-on-se t £&ff LTl><5X H) 

Bft«wa i t - f o r - a 1 I co^STfe^ 
[0 2 3 3] lO^Xl/yHT. T&ft-Dtggl 
«£G>XWyK (T, ) £<0W»«U T&V>*>V>\ZttTZ> 
&m&$tS7 : -*m& (XUyF - /V)7 (TB) 

[0 2 3 4] 1. T. ODTCB 

2. t« ±"cyn^^$nrv^teco^x>f^— otb 

«f ittT *«£*) block-on-set £5£^T* 
[0 2 3 5] &<DZ1-;P 

(block — on-set m T i T» . . . 
Ti ) 

(d e f 



(26) 4$Bfl¥7-2 7 1 7 3 8 

50 

n) ^»rifct^7>yDy^^ cn^Ti z> 

[0 2 3 6] 7^ l J^>3>libkock-on-s 
et£, 7^'jy-y3>«TLfci^a. KJzoT 
iBfi!r^fl'5ya /—/twa keup — wa Iters 
L&\ZRl\t*Z> c wakeup-wa i t e r s IS, ^(D 
XUy Kg|gcrtCO^X< ^- - Xay h^£, 

wa k e u p -wa iters te&ffi'f* T 

[0 2 3 7] Cinii2^0yDy-i;t^Wen-5 
t walt-fo r - on cJi*0^^lCB51Jl|r^ 

20 [0 2 3 8] 



ne (wal t-for-one block-group) 
(b 1 oc k — on — group 1 block-group) 
(map thread— terminate block— group 



) 



block-grou pSI&rtOT^TtDX Vv H±"C 

□ 5/— s^rtt. ^M^T^TflDXl/y H«H 

[0 2 3 9] X^-< >^D^^-vwa 1 t-fo 
r-al tO*^l/-i ^h^^^-C^S. -etl 

fc. «7^*££3WS£E3nT^*i^ST&*. 

[0 2 4 0] X^-f >^tt* 8^n-tyi^(DS i 1 i c 
on Graphics Power Series 

(MIPS R3 0 0 0) 1 S^U-tyWS i 1 40 
Icon Graphics Challenge (M 
IPS R 4 4 0 0) K>mijtZ&\,*T$mL1t. i7i/ 

Q-fcyim^-f h^x-f h©Un 1 xXPs/ FlC^y tr 

[0 2 4 1] □>ea-^*V7h')l7'7- 



[0 24 2] 

[0 2 4 3] 3EC*X9ilCJ:ntf. 2>X* V-f XTnlfigfc 

fifflT^Kfet-^ #f^W«>tt»©fc8e>cDV7hC;x 

X^AcDfH3Mf5t7W3 
[0 2 4 4] *fc#J8WlCj:ntf. ««^D-fcy*J:T 

• XU-y KSrirzJt— hT«5V7 h^x7 • 7—tt9* 
[0 2 4 5] S£IZ*%Wlrj:ntf, ^X^V-fXpJffi^ 

- vx^Ao^^^^n^. 

[0 2 4 6] *«W»rj:ntf. *X^*7<X^fig 
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(27) 



«rM¥7-2 7 1 7 3 8 



51 



52 



CO 2 4 7] &.\Z*&W\Z£tl\& XW«v HEW, &m 
Xl^ H • ^-^ft«?V7h»>X7 • T—*t>7^ 

[0 2 4 8] £fc*SEffliw<£ntf. *«fcJBflBG>#- h 

[0 2 4 9] Hlc*8^tcj:n^ -hSE©J;'5ftV7 V 

[^WconW^^] 

[fell] *Mi«CJ:aV7h^XT»7-* 

9-t??* «a v^itnp^^nt-ry □ ^ ^ HTJbs. 

[0 3] *ftW$>*1U—y L <<># • 3/XfA©i«7 
[04] *SB^TfflV^Xk-/Hco«ffi^ ( i:^TCB<Z) 
[0 5] *»nTAV»«B1Ul[B«>«|ft««T«KHT 

[07] *^Tffl^-5ftaW^Oir^1>-(D2D^^i/ 
^ ±T*ffifc£tlfc<BH7 D-k y 1J-<Z) 3 D ;* v i^iL 

[0 8] *^TfflV^a>f^Xh-X^fyf£M«(l 30 

(0 9] **WfflH53>r^Xh • X-f y^«*T 

[01 0] ^M-Cffl^-SttLUX-Yy^DBM^^ 
□ ^A£*-T0Tfc*. 

[011] *a^l^^7Xa7'Jr^ 0>M4>l>a 



coyp ^5 A 0-C^^o 

[01 2] #»IBTfflWb lock-on-sct$ 
3E&-<T* 7a 9*y A £*^T 0^$ 
[OT0IKW] 

1 0 flHMMiW^s^ 

11 WSWhtfax- 

1 2 ftftttSW^a-fey* 

13 fia^a-fesr*- n>ha— 9 

1 4 fitf-?^ 

1 5 Stt^Pty* * #'J i>— • v*— » 

1 6 fiffl^D-fey-tf 

17 XU-yF • n>hn— ^ 
18 

19 XUy F • 5|i'J->- • 

2 0. 2 0' fifllhtfDS?— 

2 4 E87y>/7KU^Bfl 

2 6 ya-/tJHfflB^-A 

2 8 ^D— /W*3flT*^S?x^ h 

3 0 A-MB« 
3 1 7*4? y{? 

3 2 TCB 

33 n-*;u-t— ^ 

3 5 if a— /VI - t— *J 

3 6 ffli* 

3 8 X^r^n.— 
40 ^ 

4 2 

4 4 fcjg 

4 6 tOKMb 

4 8 ^x>f — 

5 0 v> 
5 2 

5 4 

5 6 J»7 



[06] 



[07] 



(dot I no (filter «pa Input) 
(let loop (Ci (M Input)) 

(output (Mk«-strMi)} 
Out? two)) 
(cand (Cxfro? (nod x n>) 

(loop (root Input) output lost?)) 
(Uct? 

(cp tlabdi () (flit* op x output))) 
(loop (rott Irput) Utt«ch * output) foloo)) 
(•In (leap (rest input) (atWah X outpup) I*»t70))» 

(doftra Ulovo op n) 
(lot ((input (■oko-intosjrvtroflan))) 
(op (taofa* () (filtt* cp 2 Input))))) 



(dot lito (croito D port depth) 
(lott ((pp-«ldth (oot-mldtb)) 
(porholoftl C aot- pj r l it ight» 
(SHown <n*o-arr«T » h depth))) 
(lot ((1 0» 
(If « t rWrtth) 
(Ut (Ci «) 
(if « J oorteitfit) 
(lot ((vp <croot«nrp (flot-pp I I)))) 
(— t-%p-oao>o o* vp (motor i j)) 
(lot -«■- ((k 0)) 
(cord (« k depth) 

(aot-orarfl XhmOi vp) 
(-«♦- (4 k. 1))))) 
(-#♦- (4 J 1))))))))) 
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(28) 



*&0S¥7-2 7 1 7 3 8 



s — 



x u ^ K 




[@2] 



1 0 















^- 1 s 














1 4 








1 T — 

























C<2 



[ fa-,* 

s!5 



56^ { It T ] — 



[09] 



W?!'"? CfiniA-contfltt-Mltch} 
(let* ««p <current~*>» 

(previous <va currant-tab vp)> 
(state <toh.«tato previous))) 
airr«m-teh vp (ajrmrt-1di>) 
(eend <{r»47 Prtvteui (currant-tafa)) 
(end ((tab-«tai«-ra«V7 tMi) 

(if (n»tf previous (vs. root-trf> vp)) 

((teb-tl«tv-falodG«f7 iuu) 
(lhr^-twt»r-r»lM<» (too. thrwd prtvhuo))) 
C( tob-rt «W-«apindod? ctato) 

i*«p aiUB j-U u-ead ip (tth.1hro«l previous)) 
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(29) 



*MMF7-2 7 1 7 3 8 



[03] 



VP«S 






VPtt» 


TPM 


-vl 9 




TPM 


TC 


-^l 7 




TC 



1 9 



^3 



VPtttt 



TPM 



TC 



^1 7 



3 0 

tfE 



2 6 



pp*td 




PPtt» 


-vO 5 
-^1 3 


VPPM 


VPPM 


VPC 


VPC 



1 5 



VPPM 



VPC 



1 3 



~5 — " 

2 a 



[05] 



8-^ XI/ 7 I? 



32— TCB 



3 1 



3 3 







a-j&Jir. 















;33 



(define (staft-ccntaxt-mlch nut-stata) 
(dl«t>lo-pr«ara3tion) 
(let* (Cvp (current-vp)) 

(matt (lat Mabj (tpn-aot-nflxt-thrwd vp») 
(If (falae? ebj) 

(If (teb-rtato- ready? nxt-stato) 
(cur rent-tab 3 
(tpavp-idla *>)) 
obj)») 

(«rtd ((wtf next (cur#cnt-Ub))) 

((tCD? IMKt} 

Uit-tcb. tlata next tdrilitej riming) 
(Mt-thraad. «p Ctefa. thread naact) vp) 
(cond ((eotf rmit-*tata «to-it*i8/dood> 

(raturn-current-icb-to-itp-pool *b) 
(roatora-tcb-intHagi stars next]) 
(alsa 

( uva-eu r rem- teb- raa Itlars) 
( restore- tcb-tnd-reQ i at ■ r* next))}) 
((thread? ran) 
CthreatHautaK-aoquira mxt) 
Clot <(teb (ai locaterttb rat -into vp))) 
(actt p n— th read next vp tdb> 
Of (naU? ttb (curr«nt-tcb» 

(aavft-vufrent-ttb-ngUtara)) 
IthraaaHutax-ralMSA neat) 
Ittert-nea-tcb tcb aler t aw th re ad)))])) 



[BU 1] 



II 0] 



(oafim (start-iw-thnaad) 
Oat (U (crrer-value Thread has na value*))) 
Cmind-protact C«ot 2 (catch axlt 

Cwt-tdx oa it-hard J ir (airratrt^tcb) exit) 
((thread, that Cairram-t h raad))))) 
(let <( thread ( cur ront-th read) )> 
<thraad-0G thread) 
<«et-three*velu» thread z) 
(■ekaup-aaitaft thread) 
(sat- tcb. state (cur rant- tct>) tob-stato/deed) 
(Ktart-comart-ialtch tcb-atata/dead))})) 



(daf im (pbiwrt root spare ml) 
(and <<neds-laft roat) 

(lat (Uoft-hilf ( futura (cblaort (nodo-left root) root !»?)))> 
(pbltort (nodo-rlgM root) spara (rut uo?» 
(f«* left-half) 
(iblaaroa root ware q»?)» 
(alaa (came r a a nd — ^j rook tsars 149?)))) 

(dof ins (pblaerge root spar a up?) 
(lat loop ((reot root) <*par* spare)) 
(if (ccBpatft~and-«ajflp root apare ix>?> 
(f Inti-treo-l not up?) 
<f|ttp-iraa-2 net ip?) 
(cond {{node- left root) 

(lat t( left-half Cftrfrofloop (nsda-lifl not) root)»> 
(Icep (noda-rlcht root) spare) 
(ftx**laft-l»|f)))))) 
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(30) 



ttHPF7-2 7 1 7 3 8 



2) 



(dofina (blocktn-Mt count tfn«ade) 
Cthra^aitMc^ewlM (current-throad)) 
Clot loop ((thrMck thrMds) 
(art curt)) 
fcond Ufretrf cm) 

<t$UM*«Jttt-r«lttc» (aarait-thrMd))) 
((rufl? thru*) 

(Mt-tcfc.nl t-cam (eurrent-tcb) ait) 
(tdr«l«tr->tjlook*i (currvn-tfir«d») 
(•)m (t«t ((thrMd (c*r tfcrwfc))) 
(throw^rutu-acqji r* ItirMd) 
(and (<thrM<Hhtar»lrwd7 thrwd) 

(thr«MHutttrrfll«w» fthrucf) 
( loop (tdr threat) (f*~ cnt 1)5) 
(ttso (Itt «tb (lAHb))) 

(»*-tb.wlter lb (ajrrert thf— oT» 
itmXth thred Kb thrMd) 
Uft-tfenaxt tb (ttralnitars thmd)} 
(Mi-Ural wlten thrMd tb)) 
(thfMdrwtttt-rolMM ihrMd) 
(Imp <cdr thraxk) art)))])))) 
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